Option Explicit
Sub D_Sample049()
    Dim myWd As Window
    Set myWd = ActiveWindow
    myWd.LargeScroll Down:=2 				'
    myWd.SmallScroll Down:=2 				'CB
    Set myWd = Nothing						'
End Sub

